home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / perlnt.zip / patches < prev    next >
Text File  |  1993-07-25  |  56KB  |  2,208 lines
  1. *** ../src-4.036/cmd.c    Tue Apr  6 15:42:20 1993
  2. --- cmd.c    Fri May 21 09:17:52 1993
  3. ***************
  4. *** 38,43 ****
  5. --- 41,49 ----
  6.   #  include <varargs.h>
  7.   #endif
  8.   
  9. + #ifdef I_STDARG
  10. + #  include <stdarg.h>
  11. + #endif
  12.   static STR strchop;
  13.   
  14.   void grow_dlevel();
  15. *** ../src-4.036/config.h    Tue Apr  6 15:42:14 1993
  16. --- config.h    Fri May 21 10:22:57 1993
  17. ***************
  18. *** 1,17 ****
  19.   #ifndef config_h
  20.   #define config_h
  21. - /* config.h
  22. -  * This file was produced by running the config.h.SH script, which
  23. -  * gets its values from config.sh, which is generally produced by
  24. -  * running Configure.
  25. -  *
  26. -  * Feel free to modify any of this as the need arises.  Note, however,
  27. -  * that running config.h.SH again will wipe out any changes you've made.
  28. -  * For a more permanent change edit config.sh and rerun config.h.SH.
  29. -  */
  30. -  /*SUPPRESS 460*/
  31.   
  32. - 
  33.   /* EUNICE
  34.    *    This symbol, if defined, indicates that the program is being compiled
  35.    *    under the EUNICE package under VMS.  The program will need to handle
  36. --- 1,8 ----
  37. + /* This is the config.h for the Windows NT port of Perl */
  38. + 
  39.   #ifndef config_h
  40.   #define config_h
  41.   
  42.   /* EUNICE
  43.    *    This symbol, if defined, indicates that the program is being compiled
  44.    *    under the EUNICE package under VMS.  The program will need to handle
  45. ***************
  46. *** 42,48 ****
  47.    *    to keep publicly executable images for the package in question.  It
  48.    *    is most often a local directory such as /usr/local/bin.
  49.    */
  50. ! #define BIN "/usr/local/bin"             /**/
  51.   
  52.   /* BYTEORDER
  53.    *    This symbol contains an encoding of the order of bytes in a long.
  54. --- 33,40 ----
  55.    *    to keep publicly executable images for the package in question.  It
  56.    *    is most often a local directory such as /usr/local/bin.
  57.    */
  58. ! #define BIN (char *)NtGetBin()
  59. ! #define DEFBIN "c:\\win32app\\ingr\\perl\\bin"
  60.   
  61.   /* BYTEORDER
  62.    *    This symbol contains an encoding of the order of bytes in a long.
  63. ***************
  64. *** 61,67 ****
  65.    *    output.  This symbol will have the value "-" if CPPSTDIN needs a minus
  66.    *    to specify standard input, otherwise the value is "".
  67.    */
  68. ! #define CPPSTDIN "cppstdin"
  69.   #define CPPMINUS ""
  70.   
  71.   /* HAS_BCMP
  72. --- 53,59 ----
  73.    *    output.  This symbol will have the value "-" if CPPSTDIN needs a minus
  74.    *    to specify standard input, otherwise the value is "".
  75.    */
  76. ! #define CPPSTDIN "cpp"
  77.   #define CPPMINUS ""
  78.   
  79.   /* HAS_BCMP
  80. ***************
  81. *** 69,75 ****
  82.    *    to compare blocks of memory.  If undefined, use memcmp.  If that's
  83.    *    not available, roll your own.
  84.    */
  85. ! #define    HAS_BCMP        /**/
  86.   
  87.   /* HAS_BCOPY
  88.    *    This symbol, if defined, indicates that the bcopy routine is available
  89. --- 61,67 ----
  90.    *    to compare blocks of memory.  If undefined, use memcmp.  If that's
  91.    *    not available, roll your own.
  92.    */
  93. ! /*#undef    HAS_BCMP        /**/
  94.   
  95.   /* HAS_BCOPY
  96.    *    This symbol, if defined, indicates that the bcopy routine is available
  97. ***************
  98. *** 82,96 ****
  99.    *    should probably use memmove() or memcpy().  If neither is defined,
  100.    *    roll your own.
  101.    */
  102. ! #define    HAS_BCOPY        /**/
  103. ! #define    SAFE_BCOPY        /**/
  104.   
  105.   /* HAS_BZERO
  106.    *    This symbol, if defined, indicates that the bzero routine is available
  107.    *    to zero blocks of memory.  Otherwise you should probably use memset()
  108.    *    or roll your own.
  109.    */
  110. ! #define    HAS_BZERO        /**/
  111.   
  112.   /* CASTNEGFLOAT
  113.    *    This symbol, if defined, indicates that this C compiler knows how to
  114. --- 74,88 ----
  115.    *    should probably use memmove() or memcpy().  If neither is defined,
  116.    *    roll your own.
  117.    */
  118. ! /*#undef    HAS_BCOPY        /**/
  119. ! /*#undef    SAFE_BCOPY        /**/
  120.   
  121.   /* HAS_BZERO
  122.    *    This symbol, if defined, indicates that the bzero routine is available
  123.    *    to zero blocks of memory.  Otherwise you should probably use memset()
  124.    *    or roll your own.
  125.    */
  126. ! /*#undef    HAS_BZERO        /**/
  127.   
  128.   /* CASTNEGFLOAT
  129.    *    This symbol, if defined, indicates that this C compiler knows how to
  130. ***************
  131. *** 118,136 ****
  132.    *    This symbol, if defined, indicates that the chsize routine is available
  133.    *    to truncate files.  You might need a -lx to get this routine.
  134.    */
  135. ! /*#undef    HAS_CHSIZE        /**/
  136.   
  137.   /* HAS_CRYPT
  138.    *    This symbol, if defined, indicates that the crypt routine is available
  139.    *    to encrypt passwords and the like.
  140.    */
  141. ! #define    HAS_CRYPT        /**/
  142.   
  143.   /* CSH
  144.    *    This symbol, if defined, indicates that the C-shell exists.
  145.    *    If defined, contains the full pathname of csh.
  146.    */
  147. ! #define CSH "/bin/csh"        /**/
  148.   
  149.   /* DOSUID
  150.    *    This symbol, if defined, indicates that the C program should
  151. --- 110,128 ----
  152.    *    This symbol, if defined, indicates that the chsize routine is available
  153.    *    to truncate files.  You might need a -lx to get this routine.
  154.    */
  155. ! #define    HAS_CHSIZE        /**/
  156.   
  157.   /* HAS_CRYPT
  158.    *    This symbol, if defined, indicates that the crypt routine is available
  159.    *    to encrypt passwords and the like.
  160.    */
  161. ! /*#undef    HAS_CRYPT        /**/
  162.   
  163.   /* CSH
  164.    *    This symbol, if defined, indicates that the C-shell exists.
  165.    *    If defined, contains the full pathname of csh.
  166.    */
  167. ! /*#undef CSH "/bin/csh"        /**/
  168.   
  169.   /* DOSUID
  170.    *    This symbol, if defined, indicates that the C program should
  171. ***************
  172. *** 169,175 ****
  173.    *    This symbol, if defined, indicates to the C program that
  174.    *    the fcntl() function exists.
  175.    */
  176. ! #define    HAS_FCNTL        /**/
  177.   
  178.   /* FLEXFILENAMES
  179.    *    This symbol, if defined, indicates that the system supports filenames
  180. --- 161,167 ----
  181.    *    This symbol, if defined, indicates to the C program that
  182.    *    the fcntl() function exists.
  183.    */
  184. ! /*#undef    HAS_FCNTL        /**/
  185.   
  186.   /* FLEXFILENAMES
  187.    *    This symbol, if defined, indicates that the system supports filenames
  188. ***************
  189. *** 188,212 ****
  190.    *    available to get the list of process groups.  If unavailable, multiple
  191.    *    groups are probably not supported.
  192.    */
  193. ! #define    HAS_GETGROUPS        /**/
  194.   
  195.   /* HAS_GETHOSTENT
  196.    *    This symbol, if defined, indicates that the gethostent() routine is
  197.    *    available to lookup host names in some data base or other.
  198.    */
  199. ! #define    HAS_GETHOSTENT        /**/
  200.   
  201.   /* HAS_GETPGRP
  202.    *    This symbol, if defined, indicates that the getpgrp() routine is
  203.    *    available to get the current process group.
  204.    */
  205. ! #define    HAS_GETPGRP        /**/
  206.   
  207.   /* HAS_GETPGRP2
  208.    *    This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
  209.    *    routine is available to get the current process group.
  210.    */
  211. ! #define    HAS_GETPGRP2        /**/
  212.   
  213.   /* HAS_GETPRIORITY
  214.    *    This symbol, if defined, indicates that the getpriority() routine is
  215. --- 180,204 ----
  216.    *    available to get the list of process groups.  If unavailable, multiple
  217.    *    groups are probably not supported.
  218.    */
  219. ! /*#undef    HAS_GETGROUPS        /**/
  220.   
  221.   /* HAS_GETHOSTENT
  222.    *    This symbol, if defined, indicates that the gethostent() routine is
  223.    *    available to lookup host names in some data base or other.
  224.    */
  225. ! /*#undef    HAS_GETHOSTENT        /**/
  226.   
  227.   /* HAS_GETPGRP
  228.    *    This symbol, if defined, indicates that the getpgrp() routine is
  229.    *    available to get the current process group.
  230.    */
  231. ! /*#undef    HAS_GETPGRP        /**/
  232.   
  233.   /* HAS_GETPGRP2
  234.    *    This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
  235.    *    routine is available to get the current process group.
  236.    */
  237. ! /*#undef    HAS_GETPGRP2        /**/
  238.   
  239.   /* HAS_GETPRIORITY
  240.    *    This symbol, if defined, indicates that the getpriority() routine is
  241. ***************
  242. *** 257,269 ****
  243.    *    to kill process groups.  If unavailable, you probably should use kill
  244.    *    with a negative process number.
  245.    */
  246. ! #define    HAS_KILLPG        /**/
  247.   
  248.   /* HAS_LSTAT
  249.    *    This symbol, if defined, indicates that the lstat() routine is
  250.    *    available to stat symbolic links.
  251.    */
  252. ! #define    HAS_LSTAT        /**/
  253.   
  254.   /* HAS_MEMCMP
  255.    *    This symbol, if defined, indicates that the memcmp routine is available
  256. --- 249,261 ----
  257.    *    to kill process groups.  If unavailable, you probably should use kill
  258.    *    with a negative process number.
  259.    */
  260. ! /*#undef    HAS_KILLPG        /**/
  261.   
  262.   /* HAS_LSTAT
  263.    *    This symbol, if defined, indicates that the lstat() routine is
  264.    *    available to stat symbolic links.
  265.    */
  266. ! /*#undef    HAS_LSTAT        /**/
  267.   
  268.   /* HAS_MEMCMP
  269.    *    This symbol, if defined, indicates that the memcmp routine is available
  270. ***************
  271. *** 309,345 ****
  272.    *    This symbol, if defined, indicates that the entire msg*(2) library is
  273.    *    supported.
  274.    */
  275. ! #define    HAS_MSG        /**/
  276.   
  277.   /* HAS_MSGCTL
  278.    *    This symbol, if defined, indicates that the msgctl() routine is
  279.    *    available to control message passing.
  280.    */
  281. ! #define    HAS_MSGCTL        /**/
  282.   
  283.   /* HAS_MSGGET
  284.    *    This symbol, if defined, indicates that the msgget() routine is
  285.    *    available to get messages.
  286.    */
  287. ! #define    HAS_MSGGET        /**/
  288.   
  289.   /* HAS_MSGRCV
  290.    *    This symbol, if defined, indicates that the msgrcv() routine is
  291.    *    available to receive messages.
  292.    */
  293. ! #define    HAS_MSGRCV        /**/
  294.   
  295.   /* HAS_MSGSND
  296.    *    This symbol, if defined, indicates that the msgsnd() routine is
  297.    *    available to send messages.
  298.    */
  299. ! #define    HAS_MSGSND        /**/
  300.   
  301.   /* HAS_NDBM
  302.    *    This symbol, if defined, indicates that ndbm.h exists and should
  303.    *    be included.
  304.    */
  305. ! #define    HAS_NDBM        /**/
  306.   
  307.   /* HAS_ODBM
  308.    *    This symbol, if defined, indicates that dbm.h exists and should
  309. --- 301,337 ----
  310.    *    This symbol, if defined, indicates that the entire msg*(2) library is
  311.    *    supported.
  312.    */
  313. ! /*#undef    HAS_MSG        /**/
  314.   
  315.   /* HAS_MSGCTL
  316.    *    This symbol, if defined, indicates that the msgctl() routine is
  317.    *    available to control message passing.
  318.    */
  319. ! /*#undef    HAS_MSGCTL        /**/
  320.   
  321.   /* HAS_MSGGET
  322.    *    This symbol, if defined, indicates that the msgget() routine is
  323.    *    available to get messages.
  324.    */
  325. ! /*#undef    HAS_MSGGET        /**/
  326.   
  327.   /* HAS_MSGRCV
  328.    *    This symbol, if defined, indicates that the msgrcv() routine is
  329.    *    available to receive messages.
  330.    */
  331. ! /*#undef    HAS_MSGRCV        /**/
  332.   
  333.   /* HAS_MSGSND
  334.    *    This symbol, if defined, indicates that the msgsnd() routine is
  335.    *    available to send messages.
  336.    */
  337. ! /*#undef    HAS_MSGSND        /**/
  338.   
  339.   /* HAS_NDBM
  340.    *    This symbol, if defined, indicates that ndbm.h exists and should
  341.    *    be included.
  342.    */
  343. ! /*#undef    HAS_NDBM        /**/
  344.   
  345.   /* HAS_ODBM
  346.    *    This symbol, if defined, indicates that dbm.h exists and should
  347. ***************
  348. *** 351,357 ****
  349.    *    This manifest constant lets the C program know that the three
  350.    *    argument form of open(2) is available.
  351.    */
  352. ! #define    HAS_OPEN3        /**/
  353.   
  354.   /* HAS_READDIR
  355.    *    This symbol, if defined, indicates that the readdir routine is available
  356. --- 343,349 ----
  357.    *    This manifest constant lets the C program know that the three
  358.    *    argument form of open(2) is available.
  359.    */
  360. ! /*#undef    HAS_OPEN3        /**/
  361.   
  362.   /* HAS_READDIR
  363.    *    This symbol, if defined, indicates that the readdir routine is available
  364. ***************
  365. *** 389,419 ****
  366.    *    This symbol, if defined, indicates that the select() subroutine
  367.    *    exists.
  368.    */
  369. ! #define    HAS_SELECT    /**/
  370.   
  371.   /* HAS_SEM
  372.    *    This symbol, if defined, indicates that the entire sem*(2) library is
  373.    *    supported.
  374.    */
  375. ! #define    HAS_SEM        /**/
  376.   
  377.   /* HAS_SEMCTL
  378.    *    This symbol, if defined, indicates that the semctl() routine is
  379.    *    available to control semaphores.
  380.    */
  381. ! #define    HAS_SEMCTL        /**/
  382.   
  383.   /* HAS_SEMGET
  384.    *    This symbol, if defined, indicates that the semget() routine is
  385.    *    available to get semaphores ids.
  386.    */
  387. ! #define    HAS_SEMGET        /**/
  388.   
  389.   /* HAS_SEMOP
  390.    *    This symbol, if defined, indicates that the semop() routine is
  391.    *    available to perform semaphore operations.
  392.    */
  393. ! #define    HAS_SEMOP        /**/
  394.   
  395.   /* HAS_SETEGID
  396.    *    This symbol, if defined, indicates that the setegid routine is available
  397. --- 381,411 ----
  398.    *    This symbol, if defined, indicates that the select() subroutine
  399.    *    exists.
  400.    */
  401. ! /*#undef    HAS_SELECT    /**/
  402.   
  403.   /* HAS_SEM
  404.    *    This symbol, if defined, indicates that the entire sem*(2) library is
  405.    *    supported.
  406.    */
  407. ! /*#undef    HAS_SEM        /**/
  408.   
  409.   /* HAS_SEMCTL
  410.    *    This symbol, if defined, indicates that the semctl() routine is
  411.    *    available to control semaphores.
  412.    */
  413. ! /*#undef    HAS_SEMCTL        /**/
  414.   
  415.   /* HAS_SEMGET
  416.    *    This symbol, if defined, indicates that the semget() routine is
  417.    *    available to get semaphores ids.
  418.    */
  419. ! /*#undef    HAS_SEMGET        /**/
  420.   
  421.   /* HAS_SEMOP
  422.    *    This symbol, if defined, indicates that the semop() routine is
  423.    *    available to perform semaphore operations.
  424.    */
  425. ! /*#undef    HAS_SEMOP        /**/
  426.   
  427.   /* HAS_SETEGID
  428.    *    This symbol, if defined, indicates that the setegid routine is available
  429. ***************
  430. *** 431,443 ****
  431.    *    This symbol, if defined, indicates that the setpgrp() routine is
  432.    *    available to set the current process group.
  433.    */
  434. ! #define    HAS_SETPGRP        /**/
  435.   
  436.   /* HAS_SETPGRP2
  437.    *    This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
  438.    *    routine is available to set the current process group.
  439.    */
  440. ! #define    HAS_SETPGRP2        /**/
  441.   
  442.   /* HAS_SETPRIORITY
  443.    *    This symbol, if defined, indicates that the setpriority() routine is
  444. --- 423,435 ----
  445.    *    This symbol, if defined, indicates that the setpgrp() routine is
  446.    *    available to set the current process group.
  447.    */
  448. ! /*#undef    HAS_SETPGRP        /**/
  449.   
  450.   /* HAS_SETPGRP2
  451.    *    This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
  452.    *    routine is available to set the current process group.
  453.    */
  454. ! /*#undef    HAS_SETPGRP2        /**/
  455.   
  456.   /* HAS_SETPRIORITY
  457.    *    This symbol, if defined, indicates that the setpriority() routine is
  458. ***************
  459. *** 485,491 ****
  460.    *    This symbol, if defined, indicates that the entire shm*(2) library is
  461.    *    supported.
  462.    */
  463. ! #define    HAS_SHM        /**/
  464.   
  465.   /* HAS_SHMAT
  466.    *    This symbol, if defined, indicates that the shmat() routine is
  467. --- 477,483 ----
  468.    *    This symbol, if defined, indicates that the entire shm*(2) library is
  469.    *    supported.
  470.    */
  471. ! /*#undef    HAS_SHM        /**/
  472.   
  473.   /* HAS_SHMAT
  474.    *    This symbol, if defined, indicates that the shmat() routine is
  475. ***************
  476. *** 495,501 ****
  477.    *    This symbol, if defined, indicates that the shmat() routine
  478.    *    returns a pointer of type void*.
  479.    */
  480. ! #define    HAS_SHMAT        /**/
  481.   
  482.   /*#undef    VOIDSHMAT        /**/
  483.   
  484. --- 487,493 ----
  485.    *    This symbol, if defined, indicates that the shmat() routine
  486.    *    returns a pointer of type void*.
  487.    */
  488. ! /*#undef    HAS_SHMAT        /**/
  489.   
  490.   /*#undef    VOIDSHMAT        /**/
  491.   
  492. ***************
  493. *** 503,521 ****
  494.    *    This symbol, if defined, indicates that the shmctl() routine is
  495.    *    available to control a shared memory segment.
  496.    */
  497. ! #define    HAS_SHMCTL        /**/
  498.   
  499.   /* HAS_SHMDT
  500.    *    This symbol, if defined, indicates that the shmdt() routine is
  501.    *    available to detach a shared memory segment.
  502.    */
  503. ! #define    HAS_SHMDT        /**/
  504.   
  505.   /* HAS_SHMGET
  506.    *    This symbol, if defined, indicates that the shmget() routine is
  507.    *    available to get a shared memory segment id.
  508.    */
  509. ! #define    HAS_SHMGET        /**/
  510.   
  511.   /* HAS_SOCKET
  512.    *    This symbol, if defined, indicates that the BSD socket interface is
  513. --- 495,513 ----
  514.    *    This symbol, if defined, indicates that the shmctl() routine is
  515.    *    available to control a shared memory segment.
  516.    */
  517. ! /*#undef    HAS_SHMCTL        /**/
  518.   
  519.   /* HAS_SHMDT
  520.    *    This symbol, if defined, indicates that the shmdt() routine is
  521.    *    available to detach a shared memory segment.
  522.    */
  523. ! /*#undef    HAS_SHMDT        /**/
  524.   
  525.   /* HAS_SHMGET
  526.    *    This symbol, if defined, indicates that the shmget() routine is
  527.    *    available to get a shared memory segment id.
  528.    */
  529. ! /*#undef    HAS_SHMGET        /**/
  530.   
  531.   /* HAS_SOCKET
  532.    *    This symbol, if defined, indicates that the BSD socket interface is
  533. ***************
  534. *** 531,537 ****
  535.    */
  536.   #define    HAS_SOCKET        /**/
  537.   
  538. ! #define    HAS_SOCKETPAIR    /**/
  539.   
  540.   /*#undef    OLDSOCKET    /**/
  541.   
  542. --- 523,529 ----
  543.    */
  544.   #define    HAS_SOCKET        /**/
  545.   
  546. ! /*#undef    HAS_SOCKETPAIR    /**/
  547.   
  548.   /*#undef    OLDSOCKET    /**/
  549.   
  550. ***************
  551. *** 564,576 ****
  552.    *    This symbol, if defined, indicates that the symlink routine is available
  553.    *    to create symbolic links.
  554.    */
  555. ! #define    HAS_SYMLINK        /**/
  556.   
  557.   /* HAS_SYSCALL
  558.    *    This symbol, if defined, indicates that the syscall routine is available
  559.    *    to call arbitrary system calls.  If undefined, that's tough.
  560.    */
  561. ! #define    HAS_SYSCALL        /**/
  562.   
  563.   /* HAS_TELLDIR
  564.    *    This symbol, if defined, indicates that the telldir routine is
  565. --- 556,568 ----
  566.    *    This symbol, if defined, indicates that the symlink routine is available
  567.    *    to create symbolic links.
  568.    */
  569. ! /*#undef    HAS_SYMLINK        /**/
  570.   
  571.   /* HAS_SYSCALL
  572.    *    This symbol, if defined, indicates that the syscall routine is available
  573.    *    to call arbitrary system calls.  If undefined, that's tough.
  574.    */
  575. ! /*#undef    HAS_SYSCALL        /**/
  576.   
  577.   /* HAS_TELLDIR
  578.    *    This symbol, if defined, indicates that the telldir routine is
  579. ***************
  580. *** 587,593 ****
  581.   /* HAS_VFORK
  582.    *    This symbol, if defined, indicates that vfork() exists.
  583.    */
  584. ! #define    HAS_VFORK    /**/
  585.   
  586.   /* VOIDSIG
  587.    *    This symbol is defined if this system declares "void (*signal())()" in
  588. --- 579,585 ----
  589.   /* HAS_VFORK
  590.    *    This symbol, if defined, indicates that vfork() exists.
  591.    */
  592. ! /*#undef    HAS_VFORK    /**/
  593.   
  594.   /* VOIDSIG
  595.    *    This symbol is defined if this system declares "void (*signal())()" in
  596. ***************
  597. *** 602,608 ****
  598.    *    handler using "TO_SIGNAL handler(sig)".
  599.    */
  600.   #define    VOIDSIG     /**/
  601. ! #define    TO_SIGNAL    int     /**/
  602.   
  603.   /* HASVOLATILE
  604.    *    This symbol, if defined, indicates that this C compiler knows about
  605. --- 594,600 ----
  606.    *    handler using "TO_SIGNAL handler(sig)".
  607.    */
  608.   #define    VOIDSIG     /**/
  609. ! #define    TO_SIGNAL    void     /**/
  610.   
  611.   /* HASVOLATILE
  612.    *    This symbol, if defined, indicates that this C compiler knows about
  613. ***************
  614. *** 632,650 ****
  615.   /* HAS_WAITPID
  616.    *    This symbol, if defined, indicates that waitpid() exists.
  617.    */
  618. ! #define    HAS_WAITPID    /**/
  619.   
  620.   /* GIDTYPE
  621.    *    This symbol has a value like gid_t, int, ushort, or whatever type is
  622.    *    used to declare group ids in the kernel.
  623.    */
  624. ! #define GIDTYPE gid_t        /**/
  625.   
  626.   /* GROUPSTYPE
  627.    *    This symbol has a value like gid_t, int, ushort, or whatever type is
  628.    *    used in the return value of getgroups().
  629.    */
  630. ! #define GROUPSTYPE gid_t        /**/
  631.   
  632.   /* I_FCNTL
  633.    *    This manifest constant tells the C program to include <fcntl.h>.
  634. --- 624,642 ----
  635.   /* HAS_WAITPID
  636.    *    This symbol, if defined, indicates that waitpid() exists.
  637.    */
  638. ! /*#undef    HAS_WAITPID    /**/
  639.   
  640.   /* GIDTYPE
  641.    *    This symbol has a value like gid_t, int, ushort, or whatever type is
  642.    *    used to declare group ids in the kernel.
  643.    */
  644. ! #define GIDTYPE unsigned short
  645.   
  646.   /* GROUPSTYPE
  647.    *    This symbol has a value like gid_t, int, ushort, or whatever type is
  648.    *    used in the return value of getgroups().
  649.    */
  650. ! /*#undef GROUPSTYPE gid_t        /**/
  651.   
  652.   /* I_FCNTL
  653.    *    This manifest constant tells the C program to include <fcntl.h>.
  654. ***************
  655. *** 661,667 ****
  656.    *    This symbol, if defined, indicates to the C program that it should
  657.    *    include grp.h.
  658.    */
  659. ! #define    I_GRP        /**/
  660.   
  661.   /* I_NETINET_IN
  662.    *    This symbol, if defined, indicates to the C program that it should
  663. --- 653,659 ----
  664.    *    This symbol, if defined, indicates to the C program that it should
  665.    *    include grp.h.
  666.    */
  667. ! /*#undef    I_GRP        /**/
  668.   
  669.   /* I_NETINET_IN
  670.    *    This symbol, if defined, indicates to the C program that it should
  671. ***************
  672. *** 671,677 ****
  673.    *    This symbol, if defined, indicates to the C program that it should
  674.    *    include sys/in.h.
  675.    */
  676. ! #define    I_NETINET_IN        /**/
  677.   /*#undef    I_SYS_IN        /**/
  678.   
  679.   /* I_PWD
  680. --- 663,669 ----
  681.    *    This symbol, if defined, indicates to the C program that it should
  682.    *    include sys/in.h.
  683.    */
  684. ! /*#undef    I_NETINET_IN        /**/
  685.   /*#undef    I_SYS_IN        /**/
  686.   
  687.   /* I_PWD
  688. ***************
  689. *** 702,714 ****
  690.    *    This symbol, if defined, indicates to the C program that struct passwd
  691.    *    contains pw_comment.
  692.    */
  693. ! #define    I_PWD        /**/
  694.   /*#undef    PWQUOTA        /**/
  695. ! #define    PWAGE        /**/
  696.   /*#undef    PWCHANGE    /**/
  697.   /*#undef    PWCLASS        /**/
  698.   /*#undef    PWEXPIRE    /**/
  699. ! #define    PWCOMMENT    /**/
  700.   
  701.   /* I_SYS_FILE
  702.    *    This manifest constant tells the C program to include <sys/file.h>.
  703. --- 694,706 ----
  704.    *    This symbol, if defined, indicates to the C program that struct passwd
  705.    *    contains pw_comment.
  706.    */
  707. ! /*#undef    I_PWD        /**/
  708.   /*#undef    PWQUOTA        /**/
  709. ! /*#undef    PWAGE        /**/
  710.   /*#undef    PWCHANGE    /**/
  711.   /*#undef    PWCLASS        /**/
  712.   /*#undef    PWEXPIRE    /**/
  713. ! /*#undef    PWCOMMENT    /**/
  714.   
  715.   /* I_SYS_FILE
  716.    *    This manifest constant tells the C program to include <sys/file.h>.
  717. ***************
  718. *** 719,725 ****
  719.    *    This symbol, if defined, indicates that sys/ioctl.h exists and should
  720.    *    be included.
  721.    */
  722. ! #define    I_SYSIOCTL        /**/
  723.   
  724.   /* I_TIME
  725.    *    This symbol is defined if the program should include <time.h>.
  726. --- 711,717 ----
  727.    *    This symbol, if defined, indicates that sys/ioctl.h exists and should
  728.    *    be included.
  729.    */
  730. ! /*#undef    I_SYSIOCTL        /**/
  731.   
  732.   /* I_TIME
  733.    *    This symbol is defined if the program should include <time.h>.
  734. ***************
  735. *** 734,741 ****
  736.   /* I_SYS_SELECT
  737.    *    This symbol is defined if the program should include <sys/select.h>.
  738.    */
  739. ! /*#undef    I_TIME         /**/
  740. ! #define    I_SYS_TIME     /**/
  741.   /*#undef    SYSTIMEKERNEL     /**/
  742.   /*#undef    I_SYS_SELECT     /**/
  743.   
  744. --- 726,733 ----
  745.   /* I_SYS_SELECT
  746.    *    This symbol is defined if the program should include <sys/select.h>.
  747.    */
  748. ! #define    I_TIME         /**/
  749. ! /*#undef    I_SYS_TIME     /**/
  750.   /*#undef    SYSTIMEKERNEL     /**/
  751.   /*#undef    I_SYS_SELECT     /**/
  752.   
  753. ***************
  754. *** 749,755 ****
  755.    *    This symbol, if defined, indicates to the C program that it should
  756.    *    include varargs.h.
  757.    */
  758. ! #define    I_VARARGS        /**/
  759.   
  760.   /* I_VFORK
  761.    *    This symbol, if defined, indicates to the C program that it should
  762. --- 741,749 ----
  763.    *    This symbol, if defined, indicates to the C program that it should
  764.    *    include varargs.h.
  765.    */
  766. ! /*#undef    I_VARARGS        /**/
  767. ! 
  768. ! #define I_STDARG
  769.   
  770.   /* I_VFORK
  771.    *    This symbol, if defined, indicates to the C program that it should
  772. ***************
  773. *** 788,799 ****
  774.    *    of directory entry names is provided by a d_namlen field.  Otherwise
  775.    *    you need to do strlen() on the d_name field.
  776.    */
  777. ! #define    I_DIRENT    /**/
  778.   /*#undef    I_SYS_DIR    /**/
  779.   /*#undef    I_NDIR        /**/
  780.   /*#undef    I_SYS_NDIR    /**/
  781.   /*#undef    I_MY_DIR    /**/
  782. ! /*#undef    DIRNAMLEN    /**/
  783.   
  784.   /* MYMALLOC
  785.    *    This symbol, if defined, indicates that we're using our own malloc.
  786. --- 782,794 ----
  787.    *    of directory entry names is provided by a d_namlen field.  Otherwise
  788.    *    you need to do strlen() on the d_name field.
  789.    */
  790. ! /*#undef    I_DIRENT    /**/
  791.   /*#undef    I_SYS_DIR    /**/
  792.   /*#undef    I_NDIR        /**/
  793.   /*#undef    I_SYS_NDIR    /**/
  794.   /*#undef    I_MY_DIR    /**/
  795. ! 
  796. ! #define    DIRNAMLEN    /**/
  797.   
  798.   /* MYMALLOC
  799.    *    This symbol, if defined, indicates that we're using our own malloc.
  800. ***************
  801. *** 817,840 ****
  802.    *    to keep publicly executable scripts for the package in question.  It
  803.    *    is often a directory that is mounted across diverse architectures.
  804.    */
  805. ! #define SCRIPTDIR "/usr/local/bin"             /**/
  806.   
  807.   /* SIG_NAME
  808.    *    This symbol contains an list of signal names in order.
  809.    */
  810. ! #define SIG_NAME "ZERO","HUP","INT","QUIT","ILL","TRAP","ABRT","EMT","FPE","KILL","BUS","SEGV","SYS","PIPE","ALRM","TERM","USR1","USR2","CHLD","PWR","URG","IO","POLL","STOP","TSTP","TTIN","TTOU","CONT","VTALRM","PROF"        /**/
  811.   
  812.   /* STDCHAR
  813.    *    This symbol is defined to be the type of char used in stdio.h.
  814.    *    It has the values "unsigned char" or "char".
  815.    */
  816. ! #define STDCHAR unsigned char    /**/
  817.   
  818.   /* UIDTYPE
  819.    *    This symbol has a value like uid_t, int, ushort, or whatever type is
  820.    *    used to declare user ids in the kernel.
  821.    */
  822. ! #define UIDTYPE uid_t        /**/
  823.   
  824.   /* VOIDHAVE
  825.    *    This symbol indicates how much support of the void type is given by this
  826. --- 812,837 ----
  827.    *    to keep publicly executable scripts for the package in question.  It
  828.    *    is often a directory that is mounted across diverse architectures.
  829.    */
  830. ! #define SCRIPTDIR (char *)NtGetBin()
  831. ! #define DEFSCRIPT "C:\\win32app\\ingr\\perl\\bin"             /**/
  832.   
  833.   /* SIG_NAME
  834.    *    This symbol contains an list of signal names in order.
  835.    */
  836. ! #define SIG_NAME "0","1","INT","3","ILL","5","6","7","FPE","9","10","SEGV",\
  837. !                  "12","13","14","TERM","16","17","18","19","20","BREAK","ABRT"
  838.   
  839.   /* STDCHAR
  840.    *    This symbol is defined to be the type of char used in stdio.h.
  841.    *    It has the values "unsigned char" or "char".
  842.    */
  843. ! #define STDCHAR char    /**/
  844.   
  845.   /* UIDTYPE
  846.    *    This symbol has a value like uid_t, int, ushort, or whatever type is
  847.    *    used to declare user ids in the kernel.
  848.    */
  849. ! #define UIDTYPE unsigned short
  850.   
  851.   /* VOIDHAVE
  852.    *    This symbol indicates how much support of the void type is given by this
  853. ***************
  854. *** 861,885 ****
  855.    *    appropriately.  Otherwise, its value is the empty string.  The primary
  856.    *    use of this symbol is in specifying void parameter lists for function
  857.    *    prototypes.
  858.    */
  859.   /* VOIDP
  860.    *    This symbol is used for casting generic pointers.  On implementations
  861.    *    which support void appropriately, its value is "void *".  Otherwise,
  862.    *    its value is "char *".
  863.    */
  864. - #ifndef VOIDWANT
  865. - #define VOIDWANT 7
  866. - #endif
  867. - #define VOIDHAVE 7
  868. - #if (VOIDHAVE & VOIDWANT) != VOIDWANT
  869. - #define void int        /* is void to be avoided? */
  870. - #define VOID
  871. - #define VOIDP (char *)
  872. - #define M_VOID        /* Xenix strikes again */
  873. - #else
  874. - #define VOID void
  875.   #define VOIDP (void *)
  876. - #endif
  877.   
  878.   /* PRIVLIB
  879.    *    This symbol contains the name of the private library for this package.
  880. --- 858,872 ----
  881.    *    appropriately.  Otherwise, its value is the empty string.  The primary
  882.    *    use of this symbol is in specifying void parameter lists for function
  883.    *    prototypes.
  884. +  *   N.B. Don't define this for NT, since they use VOID as a conditional
  885. +  *        to define other types.
  886.    */
  887.   /* VOIDP
  888.    *    This symbol is used for casting generic pointers.  On implementations
  889.    *    which support void appropriately, its value is "void *".  Otherwise,
  890.    *    its value is "char *".
  891.    */
  892.   #define VOIDP (void *)
  893.   
  894.   /* PRIVLIB
  895.    *    This symbol contains the name of the private library for this package.
  896. ***************
  897. *** 887,892 ****
  898.    *    execution path, but it should be accessible by the world.  The program
  899.    *    should be prepared to do ~ expansion.
  900.    */
  901. ! #define PRIVLIB "/usr/local/lib/perl"        /**/
  902.   
  903.   #endif
  904. --- 874,885 ----
  905.    *    execution path, but it should be accessible by the world.  The program
  906.    *    should be prepared to do ~ expansion.
  907.    */
  908. ! #define DEFPRIVLIB "C:\\win32app\\ingr\\perl\\lib"
  909. ! #define PRIVLIB (char *) NtGetLib()
  910. ! 
  911. ! #define HAS_GETLOGIN
  912.   
  913. + #include "nt.h"
  914. + 
  915.   #endif
  916. + 
  917. *** ../src-4.036/cons.c    Tue Apr  6 15:42:06 1993
  918. --- cons.c    Fri May 21 09:17:57 1993
  919. ***************
  920. *** 969,974 ****
  921. --- 972,980 ----
  922.       if (++error_count >= 10)
  923.       fatal("%s has too many errors.\n",
  924.       stab_val(curcmd->c_filestab)->str_ptr);
  925. + #if defined(NT)
  926. +     return 0;
  927. + #endif
  928.   }
  929.   
  930.   void
  931. *** ../src-4.036/doio.c    Tue Apr  6 15:42:04 1993
  932. --- doio.c    Fri May 21 09:18:52 1993
  933. ***************
  934. *** 52,62 ****
  935. --- 55,69 ----
  936.   #include "perl.h"
  937.   
  938.   #ifdef HAS_SOCKET
  939. + #if !defined(NT)
  940.   #include <sys/socket.h>
  941.   #include <netdb.h>
  942.   #ifndef ENOTSOCK
  943.   #include <net/errno.h>
  944.   #endif
  945. + #else
  946. + #define ENOTSOCK WSAENOTSOCK
  947. + #endif
  948.   #endif
  949.   
  950.   #ifdef HAS_SELECT
  951. ***************
  952. *** 68,75 ****
  953. --- 75,84 ----
  954.   #endif
  955.   
  956.   #ifdef HOST_NOT_FOUND
  957. + #if !defined(NT)
  958.   extern int h_errno;
  959.   #endif
  960. + #endif
  961.   
  962.   #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
  963.   #include <sys/ipc.h>
  964. ***************
  965. *** 91,98 ****
  966. --- 100,111 ----
  967.   #include <grp.h>
  968.   #endif
  969.   #ifdef I_UTIME
  970. + #if defined(NT)
  971. + #include <sys/utime.h>
  972. + #else
  973.   #include <utime.h>
  974.   #endif
  975. + #endif
  976.   #ifdef I_FCNTL
  977.   #include <fcntl.h>
  978.   #endif
  979. ***************
  980. *** 584,589 ****
  981. --- 597,610 ----
  982.           retval = (status == 0);
  983.           statusvalue = (unsigned short)status & 0xffff;
  984.       }
  985. + #if defined(NT)
  986. +         else if (stio->type == 's') {
  987. +         SOCKET s = fileno(stio->ifp);
  988. +         Safefree(stio->ifp);
  989. +         Safefree(stio->ofp);
  990. +         retval = closesocket(s) == SOCKET_ERROR ? FALSE : TRUE;
  991. +     }
  992. + #endif    
  993.       else if (stio->type == '-')
  994.           retval = TRUE;
  995.       else {
  996. ***************
  997. *** 733,739 ****
  998.   #else
  999.       retval = 256;            /* otherwise guess at what's safe */
  1000.   #endif
  1001. !     if (argstr->str_cur < retval) {
  1002.           Str_Grow(argstr,retval+1);
  1003.           argstr->str_cur = retval;
  1004.       }
  1005. --- 754,760 ----
  1006.   #else
  1007.       retval = 256;            /* otherwise guess at what's safe */
  1008.   #endif
  1009. !     if (argstr->str_cur < (unsigned long) retval) {
  1010.           Str_Grow(argstr,retval+1);
  1011.           argstr->str_cur = retval;
  1012.       }
  1013. ***************
  1014. *** 955,962 ****
  1015. --- 976,988 ----
  1016.       else {
  1017.       int tmpfd;
  1018.   
  1019. + #if defined(NT)
  1020. +     if ((tmpfd = open(str_get(ary->ary_array[sp]), O_RDWR)) < 0)
  1021. +         result = 0;
  1022. + #else
  1023.       if ((tmpfd = open(str_get(ary->ary_array[sp]), 0)) < 0)
  1024.           result = 0;
  1025. + #endif
  1026.       else {
  1027.           if (chsize(tmpfd, len) < 0)
  1028.           result = 0;
  1029. ***************
  1030. *** 1412,1419 ****
  1031. --- 1438,1452 ----
  1032.       taintproper("Insecure dependency in socket");
  1033.   #endif
  1034.       fd = socket(domain,type,protocol);
  1035. + #if defined(NT)
  1036. +     if (fd == SOCKET_ERROR) {
  1037. +     errno = WSAGetLastError();
  1038. +     return FALSE;
  1039. +     }
  1040. + #else
  1041.       if (fd < 0)
  1042.       return FALSE;
  1043. + #endif
  1044.       stio->ifp = fdopen(fd, "r");    /* stdio gets confused about sockets */
  1045.       stio->ofp = fdopen(fd, "w");
  1046.       stio->type = 's';
  1047. ***************
  1048. *** 1435,1441 ****
  1049. --- 1468,1478 ----
  1050.       register STR **st = stack->ary_array;
  1051.       register int sp = arglast[1];
  1052.       register STIO *stio;
  1053. + #if defined(NT)
  1054. +     struct sockaddr_in *addr;
  1055. + #else
  1056.       char *addr;
  1057. + #endif
  1058.   
  1059.       if (!stab)
  1060.       goto nuts;
  1061. ***************
  1062. *** 1444,1454 ****
  1063. --- 1481,1505 ----
  1064.       if (!stio || !stio->ifp)
  1065.       goto nuts;
  1066.   
  1067. + #if defined(NT)
  1068. +     addr = (struct sockaddr_in *) str_get(st[++sp]);
  1069. + #else
  1070.       addr = str_get(st[++sp]);
  1071. + #endif
  1072.   #ifdef TAINT
  1073.       taintproper("Insecure dependency in bind");
  1074.   #endif
  1075. + #if defined(NT)
  1076. +     if (bind(fileno(stio->ifp), addr, st[sp]->str_cur) == SOCKET_ERROR) {
  1077. +     errno = WSAGetLastError();
  1078. +     return FALSE;
  1079. +     }
  1080. +     else {
  1081. +     return TRUE;
  1082. +     }
  1083. + #else
  1084.       return bind(fileno(stio->ifp), addr, st[sp]->str_cur) >= 0;
  1085. + #endif
  1086.   
  1087.   nuts:
  1088.       if (dowarn)
  1089. ***************
  1090. *** 1466,1472 ****
  1091. --- 1517,1528 ----
  1092.       register STR **st = stack->ary_array;
  1093.       register int sp = arglast[1];
  1094.       register STIO *stio;
  1095. + #if defined(NT)
  1096. +     struct sockaddr_in *addr;
  1097. + #else
  1098.       char *addr;
  1099. + #endif
  1100. +     int retval;
  1101.   
  1102.       if (!stab)
  1103.       goto nuts;
  1104. ***************
  1105. *** 1475,1485 ****
  1106. --- 1531,1555 ----
  1107.       if (!stio || !stio->ifp)
  1108.       goto nuts;
  1109.   
  1110. + #if defined(NT)
  1111. +     addr = (struct sockaddr_in *) str_get(st[++sp]);
  1112. + #else
  1113.       addr = str_get(st[++sp]);
  1114. + #endif
  1115.   #ifdef TAINT
  1116.       taintproper("Insecure dependency in connect");
  1117.   #endif
  1118. + #if defined(NT)
  1119. +     if (connect(fileno(stio->ifp), addr, st[sp]->str_cur) == SOCKET_ERROR) {
  1120. +     errno = WSAGetLastError();
  1121. +     return FALSE;
  1122. +     }
  1123. +     else {
  1124. +     return TRUE;
  1125. +     }
  1126. + #else
  1127.       return connect(fileno(stio->ifp), addr, st[sp]->str_cur) >= 0;
  1128. + #endif
  1129.   
  1130.   nuts:
  1131.       if (dowarn)
  1132. ***************
  1133. *** 1507,1513 ****
  1134. --- 1577,1593 ----
  1135.       goto nuts;
  1136.   
  1137.       backlog = (int)str_gnum(st[++sp]);
  1138. + #if defined(NT)
  1139. +     if ((listen(fileno(stio->ifp), backlog)) == SOCKET_ERROR) {
  1140. +     errno = WSAGetLastError();
  1141. +     return FALSE;
  1142. +     }
  1143. +     else {
  1144. +     return TRUE;
  1145. +     }
  1146. + #else
  1147.       return listen(fileno(stio->ifp), backlog) >= 0;
  1148. + #endif
  1149.   
  1150.   nuts:
  1151.       if (dowarn)
  1152. ***************
  1153. *** 1543,1550 ****
  1154. --- 1623,1637 ----
  1155.       do_close(nstab,FALSE);
  1156.   
  1157.       fd = accept(fileno(gstio->ifp),(struct sockaddr *)buf,&len);
  1158. + #if defined(NT)
  1159. +     if (fd == SOCKET_ERROR) {
  1160. +     errno = WSAGetLastError();
  1161. +     goto badexit;
  1162. +     }
  1163. + #else    
  1164.       if (fd < 0)
  1165.       goto badexit;
  1166. + #endif
  1167.       nstio->ifp = fdopen(fd, "r");
  1168.       nstio->ofp = fdopen(fd, "w");
  1169.       nstio->type = 's';
  1170. ***************
  1171. *** 1585,1591 ****
  1172. --- 1672,1688 ----
  1173.       goto nuts;
  1174.   
  1175.       how = (int)str_gnum(st[++sp]);
  1176. + #if defined(NT)
  1177. +     if (shutdown(fileno(stio->ifp), how)  == SOCKET_ERROR) {
  1178. +     errno = WSAGetLastError();
  1179. +     return FALSE;
  1180. +     }
  1181. +     else {
  1182. +     return TRUE;
  1183. +     }
  1184. + #else
  1185.       return shutdown(fileno(stio->ifp), how) >= 0;
  1186. + #endif
  1187.   
  1188.   nuts:
  1189.       if (dowarn)
  1190. ***************
  1191. *** 1623,1636 ****
  1192. --- 1720,1749 ----
  1193.       st[sp] = str_2mortal(Str_new(22,257));
  1194.       st[sp]->str_cur = 256;
  1195.       st[sp]->str_pok = 1;
  1196. + #if defined(NT)
  1197. +     if (getsockopt(fd, lvl, optname, st[sp]->str_ptr,
  1198. +                (int*)&st[sp]->str_cur) == SOCKET_ERROR) {
  1199. +         errno = WSAGetLastError();
  1200. +         goto nuts;
  1201. +     }
  1202. + #else
  1203.       if (getsockopt(fd, lvl, optname, st[sp]->str_ptr,
  1204.               (int*)&st[sp]->str_cur) < 0)
  1205.           goto nuts;
  1206. + #endif
  1207.       break;
  1208.       case O_SSOCKOPT:
  1209.       st[sp] = st[sp+3];
  1210. + #if defined(NT)
  1211. +     if (setsockopt(fd, lvl, optname, st[sp]->str_ptr, st[sp]->str_cur) ==
  1212. +         SOCKET_ERROR) {
  1213. +         errno = WSAGetLastError();
  1214. +         goto nuts;
  1215. +     }
  1216. + #else
  1217.       if (setsockopt(fd, lvl, optname, st[sp]->str_ptr, st[sp]->str_cur) < 0)
  1218.           goto nuts;
  1219. + #endif
  1220.       st[sp] = &str_yes;
  1221.       break;
  1222.       }
  1223. ***************
  1224. *** 1670,1681 ****
  1225. --- 1783,1810 ----
  1226.       fd = fileno(stio->ifp);
  1227.       switch (optype) {
  1228.       case O_GETSOCKNAME:
  1229. + #if defined(NT)
  1230. +     if (getsockname(fd, st[sp]->str_ptr, (int*)&st[sp]->str_cur) == 
  1231. +         SOCKET_ERROR) {
  1232. +         errno = WSAGetLastError();
  1233. +         goto nuts2;
  1234. +     }
  1235. + #else
  1236.       if (getsockname(fd, st[sp]->str_ptr, (int*)&st[sp]->str_cur) < 0)
  1237.           goto nuts2;
  1238. + #endif
  1239.       break;
  1240.       case O_GETPEERNAME:
  1241. + #if defined(NT)
  1242. +     if (getpeername(fd, st[sp]->str_ptr, (int*)&st[sp]->str_cur) ==
  1243. +         SOCKET_ERROR)  {
  1244. +         errno = WSAGetLastError();
  1245. +         goto nuts2;
  1246. +     }
  1247. + #else
  1248.       if (getpeername(fd, st[sp]->str_ptr, (int*)&st[sp]->str_cur) < 0)
  1249.           goto nuts2;
  1250. + #endif
  1251.       break;
  1252.       }
  1253.       
  1254. ***************
  1255. *** 1701,1708 ****
  1256. --- 1830,1839 ----
  1257.       register int sp = arglast[0];
  1258.       register char **elem;
  1259.       register STR *str;
  1260. + #if !defined(NT)
  1261.       struct hostent *gethostbyname();
  1262.       struct hostent *gethostbyaddr();
  1263. + #endif
  1264.   #ifdef HAS_GETHOSTENT
  1265.       struct hostent *gethostent();
  1266.   #endif
  1267. ***************
  1268. *** 1754,1760 ****
  1269. --- 1885,1895 ----
  1270.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  1271.       str_set(str, hent->h_name);
  1272.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  1273. + #if defined(NT)
  1274. +     for (elem = hent->h_aliases; elem && *elem; elem++) {
  1275. + #else
  1276.       for (elem = hent->h_aliases; *elem; elem++) {
  1277. + #endif
  1278.           str_cat(str, *elem);
  1279.           if (elem[1])
  1280.           str_ncat(str," ",1);
  1281. ***************
  1282. *** 1857,1864 ****
  1283. --- 1992,2001 ----
  1284.       register int sp = arglast[0];
  1285.       register char **elem;
  1286.       register STR *str;
  1287. + #if !defined(NT)
  1288.       struct protoent *getprotobyname();
  1289.       struct protoent *getprotobynumber();
  1290. + #endif
  1291.       struct protoent *getprotoent();
  1292.       struct protoent *pent;
  1293.   
  1294. ***************
  1295. *** 1918,1924 ****
  1296. --- 2055,2063 ----
  1297.       register int sp = arglast[0];
  1298.       register char **elem;
  1299.       register STR *str;
  1300. + #if !defined(NT)
  1301.       struct servent *getservbyname();
  1302. + #endif
  1303.       struct servent *getservbynumber();
  1304.       struct servent *getservent();
  1305.       struct servent *sent;
  1306. *** ../src-4.036/dolist.c    Tue Apr  6 15:42:24 1993
  1307. --- dolist.c    Fri May 21 09:18:54 1993
  1308. ***************
  1309. ***************
  1310. *** 1814,1820 ****
  1311.   int gimme;
  1312.   int *arglast;
  1313.   {
  1314. ! #ifdef MSDOS
  1315.       return -1;
  1316.   #else
  1317.       STR **st = stack->ary_array;
  1318. --- 1817,1823 ----
  1319.   int gimme;
  1320.   int *arglast;
  1321.   {
  1322. ! #if defined(MSDOS) || defined(NT)
  1323.       return -1;
  1324.   #else
  1325.       STR **st = stack->ary_array;
  1326. *** ../src-4.036/eval.c    Tue Apr  6 15:42:17 1993
  1327. --- eval.c    Fri May 21 09:18:59 1993
  1328. ***************
  1329. *** 117,123 ****
  1330.       double exp(), log(), sqrt(), modf();
  1331.       char *crypt(), *getenv();
  1332.       extern void grow_dlevel();
  1333. ! 
  1334.       if (!arg)
  1335.       goto say_undef;
  1336.       optype = arg->arg_type;
  1337. --- 120,128 ----
  1338.       double exp(), log(), sqrt(), modf();
  1339.       char *crypt(), *getenv();
  1340.       extern void grow_dlevel();
  1341. ! #if defined(NT)
  1342. !     extern bool NtSyncProcess;
  1343. ! #endif
  1344.       if (!arg)
  1345.       goto say_undef;
  1346.       optype = arg->arg_type;
  1347. ***************
  1348. *** 521,530 ****
  1349.               str->str_cur++;
  1350.               for (tmps = str->str_ptr; *tmps; tmps++)
  1351.               if (!isALPHA(*tmps) && !isDIGIT(*tmps) &&
  1352. !                 index("$&*(){}[]'\";\\|?<>~`",*tmps))
  1353.                   break;
  1354. !             if (*tmps && stat(str->str_ptr,&statbuf) < 0)
  1355.               goto keepgoing;        /* unmatched wildcard? */
  1356.           }
  1357.           if (gimme == G_ARRAY) {
  1358.               if (str->str_len - str->str_cur > 20) {
  1359. --- 526,537 ----
  1360.               str->str_cur++;
  1361.               for (tmps = str->str_ptr; *tmps; tmps++)
  1362.               if (!isALPHA(*tmps) && !isDIGIT(*tmps) &&
  1363. !                 index("$&*(){}[]'\";\\|?<>~`",*tmps)) 
  1364.                   break;
  1365. ! 
  1366. !             if (*tmps && stat(str->str_ptr,&statbuf) < 0) {
  1367.               goto keepgoing;        /* unmatched wildcard? */
  1368. +             }
  1369.           }
  1370.           if (gimme == G_ARRAY) {
  1371.               if (str->str_len - str->str_cur > 20) {
  1372. ***************
  1373. *** 1239,1246 ****
  1374.           lstr = (struct lstring*)str;
  1375.           str->str_magic = st[1];
  1376.           st[1]->str_rare = 's';
  1377. !         lstr->lstr_offset = tmps - str_get(st[1]); 
  1378. !         lstr->lstr_len = anum; 
  1379.           }
  1380.       }
  1381.       break;
  1382. --- 1246,1253 ----
  1383.           lstr = (struct lstring*)str;
  1384.           str->str_magic = st[1];
  1385.           st[1]->str_rare = 's';
  1386. !         lstr->lstr_offset = tmps - str_get(st[1]);
  1387. !         lstr->lstr_len = anum;
  1388.           }
  1389.       }
  1390.       break;
  1391. ***************
  1392. *** 1481,1486 ****
  1393. --- 1488,1496 ----
  1394.           str_nset(str,buf,argtype);
  1395.           }
  1396.           else
  1397. + #if defined(NT)
  1398. +         errno = WSAGetLastError();
  1399. + #endif
  1400.           str_sset(str,&str_undef);
  1401.           break;
  1402.       }
  1403. ***************
  1404. *** 1490,1495 ****
  1405. --- 1500,1512 ----
  1406.   #endif
  1407.       STR_GROW(st[2], anum+maxarg+1), (tmps = str_get(st[2]));  /* sneaky */
  1408.       if (optype == O_SYSREAD) {
  1409. + #if defined(NT)
  1410. +         if (stab_io(stab)->type == 's') {
  1411. +         warn ("NT does not support read on sockets");
  1412. +         str_sset(str, &str_undef);
  1413. +         break;
  1414. +         }
  1415. + #endif
  1416.           anum = read(fileno(stab_io(stab)->ifp), tmps+maxarg, anum);
  1417.       }
  1418.       else
  1419. ***************
  1420. *** 1498,1503 ****
  1421. --- 1515,1526 ----
  1422.           argtype = sizeof buf;
  1423.           anum = recvfrom(fileno(stab_io(stab)->ifp), tmps+maxarg, anum, 0,
  1424.           buf, &argtype);
  1425. + #if defined(NT)
  1426. +         if (anum == SOCKET_ERROR) {
  1427. +         errno = WSAGetLastError();
  1428. +         goto say_undef;
  1429. +         }
  1430. + #endif
  1431.       }
  1432.       else
  1433.   #endif
  1434. ***************
  1435. *** 1529,1534 ****
  1436. --- 1552,1563 ----
  1437.           }
  1438.       }
  1439.       else if (optype == O_SYSWRITE) {
  1440. + #if defined(NT)
  1441. +         if (stab_io(stab)->type == 's') {
  1442. +         warn("NT does not support writes to sockets");
  1443. +         break;
  1444. +         }
  1445. + #endif
  1446.           if (maxarg > 4)
  1447.           warn("Too many args on syswrite");
  1448.           if (maxarg == 4)
  1449. ***************
  1450. *** 1551,1558 ****
  1451. --- 1580,1594 ----
  1452.       else
  1453.           goto badsock;
  1454.   #endif
  1455. + #if defined(NT)
  1456. +     if (anum == SOCKET_ERROR) {
  1457. +         errno = WSAGetLastError();
  1458. +         goto say_undef;
  1459. +     }        
  1460. + #else
  1461.       if (anum < 0)
  1462.           goto say_undef;
  1463. + #endif
  1464.       value = (double)anum;
  1465.       goto donumset;
  1466.       case O_SEEK:
  1467. ***************
  1468. *** 2015,2020 ****
  1469. --- 2051,2059 ----
  1470.       }
  1471.       _exit(-1);
  1472.   #else /* ! FORK */
  1473. + #if defined(NT)
  1474. +     NtSyncProcess = TRUE;
  1475. + #endif
  1476.       if ((arg[1].arg_type & A_MASK) == A_STAB)
  1477.           value = (double)do_aspawn(st[1],arglast);
  1478.       else if (arglast[2] - arglast[1] != 1)
  1479. ***************
  1480. *** 2022,2027 ****
  1481. --- 2061,2069 ----
  1482.       else {
  1483.           value = (double)do_spawn(str_get(str_mortal(st[2])));
  1484.       }
  1485. + #if defined(NT)
  1486. +     NtSyncProcess = FALSE;
  1487. + #endif
  1488.       goto donumset;
  1489.   #endif /* FORK */
  1490.       case O_EXEC_OP:
  1491. ***************
  1492. *** 2247,2253 ****
  1493. --- 2289,2299 ----
  1494.       taintproper("Insecure dependency in mkdir");
  1495.   #endif
  1496.   #ifdef HAS_MKDIR
  1497. + #if defined(NT)
  1498. +     value = (double)(mkdir(tmps) >= 0);
  1499. + #else
  1500.       value = (double)(mkdir(tmps,anum) >= 0);
  1501. + #endif
  1502.       goto donumset;
  1503.   #else
  1504.       (void)strcpy(buf,"mkdir ");
  1505. *** ../src-4.036/perl.c    Tue Apr  6 15:42:24 1993
  1506. --- perl.c    Mon May 24 12:19:12 1993
  1507. ***************
  1508. *** 59,65 ****
  1509. --- 62,72 ----
  1510.   #include "EXTERN.h"
  1511.   #include "perl.h"
  1512.   #include "perly.h"
  1513. + #if defined(NT)
  1514. + #include "patchlvl.h"
  1515. + #else
  1516.   #include "patchlevel.h"
  1517. + #endif
  1518.   
  1519.   char *getenv();
  1520.   
  1521. ***************
  1522. *** 84,93 ****
  1523. --- 91,104 ----
  1524.   static int nrschar = '\n';      /* final char of rs, or 0777 if none */
  1525.   static int nrslen = 1;
  1526.   
  1527. + #if defined(NT)
  1528. + main(int fooargc, char **fooargv, char **env)
  1529. + #else
  1530.   main(argc,argv,env)
  1531.   register int argc;
  1532.   register char **argv;
  1533.   register char **env;
  1534. + #endif
  1535.   {
  1536.       register STR *str;
  1537.       register char *s;
  1538. ***************
  1539. *** 97,103 ****
  1540.   #ifdef DOSUID
  1541.       char *validarg = "";
  1542.   #endif
  1543. ! 
  1544.   #ifdef SETUID_SCRIPTS_ARE_SECURE_NOW
  1545.   #ifdef IAMSUID
  1546.   #undef IAMSUID
  1547. --- 108,117 ----
  1548.   #ifdef DOSUID
  1549.       char *validarg = "";
  1550.   #endif
  1551. ! #if defined(NT)
  1552. !     int argc;
  1553. !     char **argv;
  1554. ! #endif
  1555.   #ifdef SETUID_SCRIPTS_ARE_SECURE_NOW
  1556.   #ifdef IAMSUID
  1557.   #undef IAMSUID
  1558. ***************
  1559. *** 106,111 ****
  1560. --- 120,129 ----
  1561.   #endif
  1562.   #endif
  1563.   
  1564. + #if defined(NT)
  1565. +     (void) NtInitialize(&argc, &argv);
  1566. + #endif /* NT */
  1567. + 
  1568.       origargv = argv;
  1569.       origargc = argc;
  1570.       origenviron = environ;
  1571. ***************
  1572. *** 114,119 ****
  1573. --- 132,138 ----
  1574.       gid = (int)getgid();
  1575.       egid = (int)getegid();
  1576.       sprintf(patchlevel,"%3.3s%2.2d", index(rcsid,'4'), PATCHLEVEL);
  1577. + 
  1578.   #ifdef MSDOS
  1579.       /*
  1580.        * There is no way we can refer to them from Perl so close them to save
  1581. ***************
  1582. *** 180,186 ****
  1583.           fatal("No -e allowed in setuid scripts");
  1584.   #endif
  1585.           if (!e_fp) {
  1586. !             e_tmpname = savestr(TMPPATH);
  1587.           (void)mktemp(e_tmpname);
  1588.           if (!*e_tmpname)
  1589.               fatal("Can't mktemp()");
  1590. --- 199,223 ----
  1591.           fatal("No -e allowed in setuid scripts");
  1592.   #endif
  1593.           if (!e_fp) {
  1594. ! #if defined(NT)
  1595. !         do {
  1596. !             char tbuffer[_MAX_PATH+10];
  1597. !             int len = GetTempPath(_MAX_PATH+1, tbuffer);
  1598. !             
  1599. !             if (len) {
  1600. !             if (tbuffer[len-1] == '\\')
  1601. !                 strcat (tbuffer, "plXXXXXX");
  1602. !             else
  1603. !                 strcat(tbuffer, "\\plXXXXXX");
  1604. !             e_tmpname = savestr(tbuffer);
  1605. !             }
  1606. !             else {
  1607. !             e_tmpname = savestr(TMPPATH);
  1608. !             }
  1609. !         } while (0);
  1610. ! #else
  1611. !         e_tmpname = savestr(TMPPATH);
  1612. ! #endif
  1613.           (void)mktemp(e_tmpname);
  1614.           if (!*e_tmpname)
  1615.               fatal("Can't mktemp()");
  1616. ***************
  1617. *** 1388,1393 ****
  1618. --- 1425,1433 ----
  1619.   #ifdef atarist
  1620.           fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  1621.   #endif
  1622. + #if defined(NT)
  1623. +     fputs("NT Copyright (c) 1993, Intergraph Corporation\n", stdout);
  1624. + #endif
  1625.       fputs("\n\
  1626.   Perl may be copied only under the terms of either the Artistic License or the\n\
  1627.   GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  1628. *** ../src-4.036/perl.h    Tue Apr  6 15:42:05 1993
  1629. --- perl.h    Fri May 21 09:21:02 1993
  1630. ***************
  1631. *** 63,69 ****
  1632.   #endif
  1633.   
  1634.   /* define this once if either system, instead of cluttering up the src */
  1635. ! #if defined(MSDOS) || defined(atarist)
  1636.   #define DOSISH 1
  1637.   #endif
  1638.   
  1639. --- 63,69 ----
  1640.   #endif
  1641.   
  1642.   /* define this once if either system, instead of cluttering up the src */
  1643. ! #if defined(MSDOS) || defined(atarist) || defined(NT)
  1644.   #define DOSISH 1
  1645.   #endif
  1646.   
  1647. ***************
  1648. *** 101,106 ****
  1649. --- 101,110 ----
  1650.   # define STANDARD_C 1
  1651.   #endif
  1652.   
  1653. + #if defined(NT) && !defined(STANDARD_C)
  1654. + #define STANDARD_C
  1655. + #endif
  1656. + 
  1657.   #if defined(HASVOLATILE) || defined(STANDARD_C)
  1658.   #define VOLATILE volatile
  1659.   #else
  1660. ***************
  1661. *** 132,140 ****
  1662.   #endif
  1663.   
  1664.   #include <stdio.h>
  1665.   #include <ctype.h>
  1666.   #include <setjmp.h>
  1667. ! #ifndef MSDOS
  1668.   #ifdef PARAM_NEEDS_TYPES
  1669.   #include <sys/types.h>
  1670.   #endif
  1671. --- 136,150 ----
  1672.   #endif
  1673.   
  1674.   #include <stdio.h>
  1675. + 
  1676. + #if defined(NT)
  1677. + #undef fdopen
  1678. + #define fdopen myfdopen
  1679. + #endif /* NT */
  1680. + 
  1681.   #include <ctype.h>
  1682.   #include <setjmp.h>
  1683. ! #if !defined(MSDOS) && !defined(NT)
  1684.   #ifdef PARAM_NEEDS_TYPES
  1685.   #include <sys/types.h>
  1686.   #endif
  1687. ***************
  1688. *** 259,265 ****
  1689.   #   endif
  1690.   #endif
  1691.   
  1692. ! #ifndef MSDOS
  1693.   #include <sys/times.h>
  1694.   #endif
  1695.   
  1696. --- 269,275 ----
  1697.   #   endif
  1698.   #endif
  1699.   
  1700. ! #if !defined(MSDOS) && !defined(NT)
  1701.   #include <sys/times.h>
  1702.   #endif
  1703.   
  1704. ***************
  1705. *** 533,538 ****
  1706. --- 543,561 ----
  1707.   typedef struct stab STAB;
  1708.   typedef struct callsave CSV;
  1709.   
  1710. + #if defined(NT)
  1711. + /* had to wait til here to declare these guys, since STR and FILE aren\'t 
  1712. +    declared until now */
  1713. + extern int looks_like_number (STR *);
  1714. + extern FILE *mypopen (char *, char *);
  1715. + extern FILE *myfdopen(int, char *);
  1716. + extern int mypclose (FILE *);
  1717. + extern int do_aspawn (STR *, int *);
  1718. + extern int do_spawn (char *);
  1719. + extern void add_suffix (STR *, char *);
  1720. + extern int yyparse(void);
  1721. + #endif
  1722. + 
  1723.   #include "handy.h"
  1724.   #include "regexp.h"
  1725.   #include "str.h"
  1726. ***************
  1727. *** 801,808 ****
  1728. --- 824,836 ----
  1729.   void dehoist();
  1730.   void format();
  1731.   void my_unexec();
  1732. + #if defined(NT)
  1733. + void fatal(char *, ...);
  1734. + void warn(char *, ...);
  1735. + #else
  1736.   void fatal();
  1737.   void warn();
  1738. + #endif
  1739.   #ifdef DEBUGGING
  1740.   void dump_all();
  1741.   void dump_cmd();
  1742. ***************
  1743. *** 956,962 ****
  1744.   EXT struct stat statcache;
  1745.   EXT STAB *statstab INIT(Nullstab);
  1746.   EXT STR *statname INIT(Nullstr);
  1747. ! #ifndef MSDOS
  1748.   EXT struct tms timesbuf;
  1749.   #endif
  1750.   EXT int uid;
  1751. --- 984,990 ----
  1752.   EXT struct stat statcache;
  1753.   EXT STAB *statstab INIT(Nullstab);
  1754.   EXT STR *statname INIT(Nullstr);
  1755. ! #if !defined(MSDOS) && !defined(NT)
  1756.   EXT struct tms timesbuf;
  1757.   #endif
  1758.   EXT int uid;
  1759. *** ../src-4.036/perly.h    Thu Apr 15 12:13:54 1993
  1760. --- perly.h    Fri May 21 09:21:14 1993
  1761. ***************
  1762. *** 41,46 ****
  1763. --- 41,47 ----
  1764.   #define SUB 297
  1765.   #define FILETEST 298
  1766.   #define LOCAL 299
  1767. + #undef DELETE
  1768.   #define DELETE 300
  1769.   #define RELOP 301
  1770.   #define EQOP 302
  1771. *** ../src-4.036/util.c    Tue Apr  6 15:42:20 1993
  1772. --- util.c    Fri May 21 09:23:47 1993
  1773. ***************
  1774. *** 57,62 ****
  1775. --- 57,66 ----
  1776.   #  include <varargs.h>
  1777.   #endif
  1778.   
  1779. + #ifdef I_STDARG
  1780. + #  include <stdarg.h>
  1781. + #endif
  1782. + 
  1783.   #ifdef I_FCNTL
  1784.   #  include <fcntl.h>
  1785.   #endif
  1786. ***************
  1787. *** 857,881 ****
  1788.       }
  1789.   }
  1790.   
  1791. ! #ifndef I_VARARGS
  1792. ! /*VARARGS1*/
  1793.   char *
  1794. ! mess(pat,a1,a2,a3,a4)
  1795. ! char *pat;
  1796. ! long a1, a2, a3, a4;
  1797.   {
  1798.       char *s;
  1799. -     int usermess = strEQ(pat,"%s");
  1800.       STR *tmpstr;
  1801.   
  1802.       s = buf;
  1803.       if (usermess) {
  1804.       tmpstr = str_mortal(&str_undef);
  1805. !     str_set(tmpstr, (char*)a1);
  1806.       *s++ = tmpstr->str_ptr[tmpstr->str_cur-1];
  1807.       }
  1808.       else {
  1809. !     (void)sprintf(s,pat,a1,a2,a3,a4);
  1810.       s += strlen(s);
  1811.       }
  1812.   
  1813. --- 861,898 ----
  1814.       }
  1815.   }
  1816.   
  1817. ! #if defined(I_VARARGS)
  1818. ! /*VARARGS0*/
  1819.   char *
  1820. ! mess(args)
  1821. ! va_list args;
  1822.   {
  1823. +     char *pat;
  1824.       char *s;
  1825.       STR *tmpstr;
  1826. +     int usermess;
  1827. + #ifndef HAS_VPRINTF
  1828. + #ifdef CHARVSPRINTF
  1829. +     char *vsprintf();
  1830. + #else
  1831. +     int vsprintf();
  1832. + #endif
  1833. + #endif
  1834.   
  1835. + #ifdef lint
  1836. +     pat = Nullch;
  1837. + #else
  1838. +     pat = va_arg(args, char *);
  1839. + #endif
  1840.       s = buf;
  1841. +     usermess = strEQ(pat, "%s");
  1842.       if (usermess) {
  1843.       tmpstr = str_mortal(&str_undef);
  1844. !     str_set(tmpstr, va_arg(args, char *));
  1845.       *s++ = tmpstr->str_ptr[tmpstr->str_cur-1];
  1846.       }
  1847.       else {
  1848. !     (void) vsprintf(s,pat,args);
  1849.       s += strlen(s);
  1850.       }
  1851.   
  1852. ***************
  1853. *** 889,895 ****
  1854.           stab_io(last_in_stab) &&
  1855.           stab_io(last_in_stab)->lines ) {
  1856.           (void)sprintf(s,", <%s> line %ld",
  1857. !           last_in_stab == argvstab ? "" : stab_ename(last_in_stab),
  1858.             (long)stab_io(last_in_stab)->lines);
  1859.           s += strlen(s);
  1860.       }
  1861. --- 906,912 ----
  1862.           stab_io(last_in_stab) &&
  1863.           stab_io(last_in_stab)->lines ) {
  1864.           (void)sprintf(s,", <%s> line %ld",
  1865. !           last_in_stab == argvstab ? "" : last_in_stab->str_magic->str_ptr,
  1866.             (long)stab_io(last_in_stab)->lines);
  1867.           s += strlen(s);
  1868.       }
  1869. ***************
  1870. *** 897,919 ****
  1871.       if (usermess)
  1872.           str_cat(tmpstr,buf+1);
  1873.       }
  1874.       if (usermess)
  1875.       return tmpstr->str_ptr;
  1876.       else
  1877.       return buf;
  1878.   }
  1879.   
  1880. ! /*VARARGS1*/
  1881. ! void fatal(pat,a1,a2,a3,a4)
  1882. ! char *pat;
  1883. ! long a1, a2, a3, a4;
  1884.   {
  1885.       extern FILE *e_fp;
  1886.       extern char *e_tmpname;
  1887.       char *tmps;
  1888.       char *message;
  1889.   
  1890. !     message = mess(pat,a1,a2,a3,a4);
  1891.       if (in_eval) {
  1892.       str_set(stab_val(stabent("@",TRUE)),message);
  1893.       tmps = "_EVAL_";
  1894. --- 914,943 ----
  1895.       if (usermess)
  1896.           str_cat(tmpstr,buf+1);
  1897.       }
  1898. + 
  1899.       if (usermess)
  1900.       return tmpstr->str_ptr;
  1901.       else
  1902.       return buf;
  1903.   }
  1904.   
  1905. ! /*VARARGS0*/
  1906. ! void fatal(va_alist)
  1907. ! va_dcl
  1908.   {
  1909. +     va_list args;
  1910.       extern FILE *e_fp;
  1911.       extern char *e_tmpname;
  1912.       char *tmps;
  1913.       char *message;
  1914.   
  1915. ! #ifndef lint
  1916. !     va_start(args);
  1917. ! #else
  1918. !     args = 0;
  1919. ! #endif
  1920. !     message = mess(args);
  1921. !     va_end(args);
  1922.       if (in_eval) {
  1923.       str_set(stab_val(stabent("@",TRUE)),message);
  1924.       tmps = "_EVAL_";
  1925. ***************
  1926. *** 947,960 ****
  1927.       exit((int)((errno&255)?errno:((statusvalue&255)?statusvalue:255)));
  1928.   }
  1929.   
  1930. ! /*VARARGS1*/
  1931. ! void warn(pat,a1,a2,a3,a4)
  1932. ! char *pat;
  1933. ! long a1, a2, a3, a4;
  1934.   {
  1935.       char *message;
  1936.   
  1937. !     message = mess(pat,a1,a2,a3,a4);
  1938.       fputs(message,stderr);
  1939.   #ifdef LEAKTEST
  1940.   #ifdef DEBUGGING
  1941. --- 971,991 ----
  1942.       exit((int)((errno&255)?errno:((statusvalue&255)?statusvalue:255)));
  1943.   }
  1944.   
  1945. ! /*VARARGS0*/
  1946. ! void warn(va_alist)
  1947. ! va_dcl
  1948.   {
  1949. +     va_list args;
  1950.       char *message;
  1951.   
  1952. ! #ifndef lint
  1953. !     va_start(args);
  1954. ! #else
  1955. !     args = 0;
  1956. ! #endif
  1957. !     message = mess(args);
  1958. !     va_end(args);
  1959. ! 
  1960.       fputs(message,stderr);
  1961.   #ifdef LEAKTEST
  1962.   #ifdef DEBUGGING
  1963. ***************
  1964. *** 964,976 ****
  1965.   #endif
  1966.       (void)fflush(stderr);
  1967.   }
  1968. ! #else
  1969. ! /*VARARGS0*/
  1970.   char *
  1971. ! mess(args)
  1972. ! va_list args;
  1973.   {
  1974. -     char *pat;
  1975.       char *s;
  1976.       STR *tmpstr;
  1977.       int usermess;
  1978. --- 995,1008 ----
  1979.   #endif
  1980.       (void)fflush(stderr);
  1981.   }
  1982. ! 
  1983. ! #elif defined(I_STDARG)
  1984. ! 
  1985. ! /* Use this for NT */
  1986. ! 
  1987.   char *
  1988. ! mess(char *pat, va_list args)
  1989.   {
  1990.       char *s;
  1991.       STR *tmpstr;
  1992.       int usermess;
  1993. ***************
  1994. *** 981,992 ****
  1995.       int vsprintf();
  1996.   #endif
  1997.   #endif
  1998. - 
  1999. - #ifdef lint
  2000. -     pat = Nullch;
  2001. - #else
  2002. -     pat = va_arg(args, char *);
  2003. - #endif
  2004.       s = buf;
  2005.       usermess = strEQ(pat, "%s");
  2006.       if (usermess) {
  2007. --- 1013,1018 ----
  2008. ***************
  2009. *** 1025,1032 ****
  2010.   }
  2011.   
  2012.   /*VARARGS0*/
  2013. ! void fatal(va_alist)
  2014. ! va_dcl
  2015.   {
  2016.       va_list args;
  2017.       extern FILE *e_fp;
  2018. --- 1051,1057 ----
  2019.   }
  2020.   
  2021.   /*VARARGS0*/
  2022. ! void fatal(char *pat, ...)
  2023.   {
  2024.       va_list args;
  2025.       extern FILE *e_fp;
  2026. ***************
  2027. *** 1035,1045 ****
  2028.       char *message;
  2029.   
  2030.   #ifndef lint
  2031. !     va_start(args);
  2032.   #else
  2033.       args = 0;
  2034.   #endif
  2035. !     message = mess(args);
  2036.       va_end(args);
  2037.       if (in_eval) {
  2038.       str_set(stab_val(stabent("@",TRUE)),message);
  2039. --- 1060,1070 ----
  2040.       char *message;
  2041.   
  2042.   #ifndef lint
  2043. !     va_start(args, pat);
  2044.   #else
  2045.       args = 0;
  2046.   #endif
  2047. !     message = mess(pat, args);
  2048.       va_end(args);
  2049.       if (in_eval) {
  2050.       str_set(stab_val(stabent("@",TRUE)),message);
  2051. ***************
  2052. *** 1075,1092 ****
  2053.   }
  2054.   
  2055.   /*VARARGS0*/
  2056. ! void warn(va_alist)
  2057. ! va_dcl
  2058.   {
  2059.       va_list args;
  2060.       char *message;
  2061.   
  2062.   #ifndef lint
  2063. !     va_start(args);
  2064.   #else
  2065.       args = 0;
  2066.   #endif
  2067. !     message = mess(args);
  2068.       va_end(args);
  2069.   
  2070.       fputs(message,stderr);
  2071. --- 1100,1116 ----
  2072.   }
  2073.   
  2074.   /*VARARGS0*/
  2075. ! void warn(char *pat, ...)
  2076.   {
  2077.       va_list args;
  2078.       char *message;
  2079.   
  2080.   #ifndef lint
  2081. !     va_start(args, pat);
  2082.   #else
  2083.       args = 0;
  2084.   #endif
  2085. !     message = mess(pat, args);
  2086.       va_end(args);
  2087.   
  2088.       fputs(message,stderr);
  2089. ***************
  2090. *** 1098,1104 ****
  2091. --- 1122,1236 ----
  2092.   #endif
  2093.       (void)fflush(stderr);
  2094.   }
  2095. + 
  2096. + #else
  2097. + /*VARARGS1*/
  2098. + char *
  2099. + mess(pat,a1,a2,a3,a4)
  2100. + char *pat;
  2101. + long a1, a2, a3, a4;
  2102. + {
  2103. +     char *s;
  2104. +     int usermess = strEQ(pat,"%s");
  2105. +     STR *tmpstr;
  2106. + 
  2107. +     s = buf;
  2108. +     if (usermess) {
  2109. +     tmpstr = str_mortal(&str_undef);
  2110. +     str_set(tmpstr, (char*)a1);
  2111. +     *s++ = tmpstr->str_ptr[tmpstr->str_cur-1];
  2112. +     }
  2113. +     else {
  2114. +     (void)sprintf(s,pat,a1,a2,a3,a4);
  2115. +     s += strlen(s);
  2116. +     }
  2117. + 
  2118. +     if (s[-1] != '\n') {
  2119. +     if (curcmd->c_line) {
  2120. +         (void)sprintf(s," at %s line %ld",
  2121. +           stab_val(curcmd->c_filestab)->str_ptr, (long)curcmd->c_line);
  2122. +         s += strlen(s);
  2123. +     }
  2124. +     if (last_in_stab &&
  2125. +         stab_io(last_in_stab) &&
  2126. +         stab_io(last_in_stab)->lines ) {
  2127. +         (void)sprintf(s,", <%s> line %ld",
  2128. +           last_in_stab == argvstab ? "" : stab_ename(last_in_stab),
  2129. +           (long)stab_io(last_in_stab)->lines);
  2130. +         s += strlen(s);
  2131. +     }
  2132. +     (void)strcpy(s,".\n");
  2133. +     if (usermess)
  2134. +         str_cat(tmpstr,buf+1);
  2135. +     }
  2136. +     if (usermess)
  2137. +     return tmpstr->str_ptr;
  2138. +     else
  2139. +     return buf;
  2140. + }
  2141. + 
  2142. + /*VARARGS1*/
  2143. + void fatal(pat,a1,a2,a3,a4)
  2144. + char *pat;
  2145. + long a1, a2, a3, a4;
  2146. + {
  2147. +     extern FILE *e_fp;
  2148. +     extern char *e_tmpname;
  2149. +     char *tmps;
  2150. +     char *message;
  2151. + 
  2152. +     message = mess(pat,a1,a2,a3,a4);
  2153. +     if (in_eval) {
  2154. +     str_set(stab_val(stabent("@",TRUE)),message);
  2155. +     tmps = "_EVAL_";
  2156. +     while (loop_ptr >= 0 && (!loop_stack[loop_ptr].loop_label ||
  2157. +       strNE(tmps,loop_stack[loop_ptr].loop_label) )) {
  2158. + #ifdef DEBUGGING
  2159. +         if (debug & 4) {
  2160. +         deb("(Skipping label #%d %s)\n",loop_ptr,
  2161. +             loop_stack[loop_ptr].loop_label);
  2162. +         }
  2163. + #endif
  2164. +         loop_ptr--;
  2165. +     }
  2166. + #ifdef DEBUGGING
  2167. +     if (debug & 4) {
  2168. +         deb("(Found label #%d %s)\n",loop_ptr,
  2169. +         loop_stack[loop_ptr].loop_label);
  2170. +     }
  2171. + #endif
  2172. +     if (loop_ptr < 0) {
  2173. +         in_eval = 0;
  2174. +         fatal("Bad label: %s", tmps);
  2175. +     }
  2176. +     longjmp(loop_stack[loop_ptr].loop_env, 1);
  2177. +     }
  2178. +     fputs(message,stderr);
  2179. +     (void)fflush(stderr);
  2180. +     if (e_fp)
  2181. +     (void)UNLINK(e_tmpname);
  2182. +     statusvalue >>= 8;
  2183. +     exit((int)((errno&255)?errno:((statusvalue&255)?statusvalue:255)));
  2184. + }
  2185. + 
  2186. + /*VARARGS1*/
  2187. + void warn(pat,a1,a2,a3,a4)
  2188. + char *pat;
  2189. + long a1, a2, a3, a4;
  2190. + {
  2191. +     char *message;
  2192. + 
  2193. +     message = mess(pat,a1,a2,a3,a4);
  2194. +     fputs(message,stderr);
  2195. + #ifdef LEAKTEST
  2196. + #ifdef DEBUGGING
  2197. +     if (debug & 4096)
  2198. +     xstat();
  2199.   #endif
  2200. + #endif
  2201. +     (void)fflush(stderr);
  2202. + }
  2203. + #endif  /* Not I_VARARGS or I_STDARG */
  2204.   
  2205.   void
  2206.   my_setenv(nam,val)
  2207.  
  2208.